home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Lengths / Tools / l-position < prev    next >
Lisp/Scheme  |  1998-08-11  |  369b  |  21 lines
  1. l-position type list
  2.  
  3. 0-based 
  4.  
  5. This function identifies the position of either note-lengths or rest-lengths making a list of integers. 
  6.  
  7. (setq len1 (qlength '20-10101))
  8. (setq len2 (qlength '((12-101) (20-10101))))
  9.  
  10. (l-position :note len1)
  11. => (0 2 4)
  12.  
  13. (l-position :rest len1)
  14. => (1 3)
  15.  
  16. (l-position :rest len2)
  17. => ((1) (1 3))
  18.  
  19. (l-position :note len2)
  20. => ((0 2) (0 2 4))
  21.